home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 10-09.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  818 b   |  48 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Arrow AS STRING*35
  6.  
  7. DATA &h00,&h00,&h00,&hF0,&h00
  8. DATA &h00,&h00,&h00,&hFF,&h00
  9. DATA &hFF,&hFF,&hFF,&hFF,&hF0
  10. DATA &hFF,&hFF,&hFF,&hFF,&hFF
  11. DATA &hFF,&hFF,&hFF,&hFF,&hF0
  12. DATA &h00,&h00,&h00,&hFF,&h00
  13. DATA &h00,&h00,&h00,&hF0,&h00
  14.  
  15. IF FGtestmode(13,1) = 0 THEN
  16.    PRINT "This program requires a 320 x 200 EGA graphics mode."
  17.    STOP
  18. END IF
  19.  
  20. FOR I = 1 TO 35
  21.    READ Item
  22.    MID$(Arrow,I) = CHR$(Item)
  23. NEXT
  24.  
  25. OldMode = FGgetmode
  26. FGsetmode 13
  27. FGsetcolor 1
  28. FGfillpage
  29. FGsetclip 0, 15, 0, 199
  30. FGsetcolor 15
  31.  
  32. FGmove 10, 10
  33. FGdrwimage Arrow, 5, 7
  34. FGmove 10, 20
  35. FGclpimage Arrow, 5, 7
  36. FGmove 8, 30
  37. FGrevimage Arrow, 5, 7
  38. FGmove 8, 40
  39. FGflpimage Arrow, 5, 7
  40. FGmove 8, 50
  41. FGputimage Arrow, 5, 7
  42. FGwaitkey
  43.  
  44. FGsetmode OldMode
  45. FGreset
  46.  
  47. END
  48.